50 POKE53280,0:POKE53281,0:POKE53272,23:Y=0:W=0:C=0:M=0:N=0
100 PRINT"[147][155]            [215][200][195][160][197]NTERPRISES            ":GOSUB290:GOSUB240
105 PRINT"[159]                                        [146]";
110 PRINT"                                        [146]";
115 PRINT"      [199][201][204][204][201][193][206]'[211] [197][206][199][204][201][211][200] [197][216][197][210][195][201][211][197][211]       [146]";
120 PRINT"[159]                                        [146]";:GOSUB290:GOSUB240
125 PRINT"             *   [199][193][205][197] 6   *             [146]";
130 PRINT"[159]                                        [146]";:GOSUB290:GOSUB240
135 PRINT"                [208][210][193][195][212][201][195][197]                [146]";
140 PRINT"[159]                                        [146]";
145 PRINT"                                        [146]"
150 GOSUB 291:GOSUB460
160 PRINT"[147][153]  [201] WILL SHOW YOU A WORD WITH
162 [153]"  THREE LETTERS MISSING.
164 PRINT"  [217]OUR TASK IS TO DECIDE IF THE
166 [153]"  MISSING LETTERS ARE ISEPRINT, IZEPRINT OR YZEPRINT     AND TYPE THE WORD.
168 PRINT"  [201]F, AFTER YOUR SECOND ATTEMPT, YOU
170 [153]"  HAVE FAILED TO TYPE THE CORRECTLY
172 PRINT"  SPELLED WORD, IT WILL BE DISPLAYED."
174 PRINT"  [217]OU SHOULD STOP TO RECORD THAT WORD
176 [153]"  FOR FURTHER STUDY.
190 GOSUB291:GOSUB460
195 PRINT"[147][158] [193]ND AWAY WE GO.............."
197 GOSUB291:GOSUB200:GOSUB290:PRINT"[147]":GOSUB290:GOTO500
200 REM <YES> SOUND
202 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
204 POKE54296,15:POKE54277,42:POKE54278,250
206 POKE54276,23:POKE54273,23:POKE54272,191
208 FORTM=1TO150:NEXT:POKE54276,32:FORTM=1TO250:NEXT
210 POKE54296,0:RETURN
220 REM <NO> SOUND
222 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
224 POKE54296,15:POKE54277,18:POKE54278,242
226 POKE54276,33:POKE54273,4:POKE54272,48
228 FORTM=1TO300:NEXT:POKE54276,32:FORTM=1TO400:NEXT
230 POKE54296,0:RETURN
240 REM <BLIP> SOUND
242 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
244 POKE54296,6:POKE54277,42:POKE54278,250
246 POKE54276,23:POKE54273,23:POKE54272,191
248 FORTM=1TO30:NEXT:POKE54276,32:FORTM=1TO50:NEXT
250 POKE54296,0:RETURN
260 REM <DING> SOUND
262 SS=54272:POKE54296,15:POKESS,50:POKESS+1,35:POKESS+2,0:POKESS+3,8:POKESS+5,0
264 POKESS+6,10*16+9:POKESS+4,14:POKESS+4,65:FORQQ=1TO20:POKESS+4,64:RETURN
270 REM <VERY WRONG> SOUND
272 SS=54272:POKE54296,15:POKESS,32:POKESS+1,3:POKESS+2,128:POKESS+3,13
274 POKESS+5,4*16+0:POKESS+6,10*16+8
276 POKESS+24,15:POKESS+4,65:FORQQ=1TO500:NEXT:POKESS+4,64:RETURN
290 FORTM=1TO600:NEXT:RETURN
291 FORTM=1TO1000:NEXT:RETURN
292 FORTM=1TO2000:NEXT:RETURN
293 FORTM=1TO3000:NEXT:RETURN
294 FORTM=1TO4000:NEXT:RETURN
300 PRINT"[147]":GOSUB290:PRINT"[155] [199]AME 6 - [208]RACTICE              [201]TEM"Y
305 RETURN
399 :
400 POKE53280,13:GOSUB290
402 PRINT"[153]                [195][207][210][210][197][195][212]!                [146]":GOSUB200:GOSUB292
404 PRINT"[145][145]                                        "
410 POKE53280,0:RETURN
420 POKE53280,2:GOSUB220:GOSUB291
422 PRINT"[150]                 [206][207]!                    [146]":GOSUB291
424 PRINT"[145][145]             [212]RY AGAIN.                 [145][145]":GOSUB291
426 PRINT"                                        [145][145]"
428 PRINT"[145][145][145]                              [145][145]":RETURN
430 POKE53280,2:GOSUB270:GOSUB291
432 PRINT"[150]                 [206][207]!                    [146]":GOSUB291
434 PRINT"[145][145]                                        [145][145]":RETURN
440 GOSUB270:GOSUB291:POKE53280,13
445 PRINT"> [153]"D$
450 GOSUB200:GOSUB294:GOSUB460:POKE53280,0:RETURN
460 GOSUB291:GOSUB260
462 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210] TO CONTINUE       [146]"
464 GETR$:IFR$<>CHR$(32)THEN464
466 PRINT"[145][145]                                        ":RETURN
500 FORG=1TO20:FORI=1TO2:Y=Y+1:P=0
505 GOSUB300:POKE53280,0
510 READA$,B$
515 PRINT"[153][212]HE MISSING LETTERS MAY BE ISE[153], IZE[153]  OR YZE[153].
517 [153]"(null)YPE THE CORRECTLY SPELLED WORD.
520 PRINT"  ";A$
525 GOSUB260:PRINT"[158]":INPUTZ$
530 IFZ$=B$THENGOSUB400:GOTO590
535 IFP=1 THENGOSUB430:GOTO545
540 P=P+1:K=K+1:GOSUB420:GOTO525
545 PRINT"[159][145][212]HE CORRECT WORD IS "B$:GOSUB200:GOSUB291:W=W+1:GOSUB292
550 PRINT"[158][208]LEASE RECORD THIS WORD >> "B$:PRINT""
555 GOSUB260:GOSUB293:GOSUB460
590 NEXTG
600 PRINT"[147]       [199][193][205][197] 6 [208][210][193][195][212][201][195][197]    [211][195][207][210][197][160][194][207][193][210][196]   [146]"
605 M=K-W:D=M+W:C=20-D
610 PRINT"[153]    [195]ORRECT THE FIRST TIME ...... "C:GOSUB260:GOSUB291
615 PRINT"[159]    [195]ORRECT ON SECOND ATTEMPT ... "M:GOSUB240:GOSUB291
620 PRINT"[150]    [205]ISSED COMPLEETELY .......... "W:GOSUB270:GOSUB291
630 IFC<20THENGOSUB292:GOTO660
635 PRINT"            [197][216][195][197][204][204][197][206][212]  [215][207][210][203]!            [146]":GOSUB293
660 GOSUB460
670 PRINT"[158][147]  [217]OU HAVE A CHOICE:                    ":GOSUB292
672 PRINT"  [208]RESS  [208] [146] TO PLAY [199]AME 6 [208]RACTICE   [158]              AGAIN.
674 [153]"  (null)RESS  (null) WAIT TO RETURN TO DISK MENU,
676 GETR$:IFR$<>"P"ANDR$<>"[208]"ANDR$<>"M"ANDR$<>"[205]"THEN676
678 IFR$="P"THEN RESTORE:GOTO50
680 IFR$="[208]"THEN RESTORE:GOTO50
682 PRINT"[147] [210]ETURNING TO THE DISK MENU
684 [147]"MENU",8
686 [138]
688 [128]
1000 [131] "UPR---","UPRISE"
1010 [131] "STABIL---","STABILIZE"
1020 [131] "ENTERP---","ENTERPRISE"
1030 [131] "DISGU---","DISGUISE"
1040 [131] "APPR---","APPRISE"
1050 [131] "SUPERV---","SUPERVISE"
1060 [131] "MERCHAND---","MERCHANDISE"
1070 [131] "LIKEW---","LIKEWISE"
1080 [131] "ANAL---","ANALYZE"
1090 [131] "ORGAN---","ORGANIZE"
1100 [131] "COMPROM---","COMPROMISE"
1110 [131] "DESP---","DESPISE"
1120 [131] "ADVERT---","ADVERTISE"
1130 [131] "GENERAL---","GENERALIZE"
1140 [131] "REV---","REVISE"
1150 [131] "EXERC---","EXERCISE"
1160 [131] "OTHERW---","OTHERWISE"
1170 [131] "CHAST---","CHASTISE"
1180 [131] "SUNR---","SUNRISE"
1190 [131] "SURM---","SURMISE"
2000 [143] WHC 92 09 07